﻿#Region "IMPORTS"

Imports DAO

#End Region

Public Class CondicaoPagamentoDao
    Inherits DAO(Of CondicaoPagamento)


#Region "CONSTRUTOR(S)"

    Public Sub New()
        MyBase.New()
    End Sub

#End Region

#Region "METODOS ABSTRATOS"

    Protected Overrides Sub ValidarInsert(modelo As CondicaoPagamento)

        Dim NHQL As String = "from CondicaoPagamento as cp where cp.Descricao  = '" & modelo.Descricao & "'"
        Dim list As IList = Me.Find(NHQL)
        If list.Count > 0 Then
            Throw New Exception("Já existe uma Condicao de Pagamento com esta Descrição!")
        End If
    End Sub

    Protected Overrides Sub ValidarDelete(modelo As CondicaoPagamento)


    End Sub

    Protected Overrides Sub ValidarUpdate(ByVal modelo As CondicaoPagamento)

        Dim NHQL As String = "from CondicaoPagamento as fm where fm.Descricao  = '" & modelo.Descricao & "' AND fm.CondicaoPagamentoId != " & modelo.CondicaoPagamentoId
        Dim list As IList = Me.Find(NHQL)
        If list.Count > 0 Then
            Throw New Exception("Já existe uma Condicao de Pagamento com esta Descrição!")
        End If

    End Sub

#End Region
End Class
